home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / estr.doc < prev    next >
Text File  |  1995-03-31  |  3KB  |  65 lines
  1. (Comp.sys.hp48) 
  2. Item: 2488 by jdg@hpqtdla.sqf.hp.com [James Gentles] 
  3. Subj: Calculating Easter 
  4. Date: 22 Dec 1992 
  5.  
  6. There follows a HP48 routine to compute Easter. It accepts either the year 
  7. or the date in current format. Internally the routine uses European format, 
  8. dd.mmyyyy, and then at the end checks current format with flag -42, and 
  9. changes accordingly using a small routine to swap day and month D<-->M 
  10. (Sorry, I haven't included this small routine, its not a big deal) 
  11.  
  12. [I took the liberty of modifying the end of the program to make it 
  13.  work no matter which date format you use.  Unfortunately, this "fix" 
  14.  only allows dates between 1989 and 2088.  If you need dates outside 
  15.  this range, change the code back to James' original as listed below. 
  16.  -jkh-] 
  17.  
  18. The output is the date of Easter in current date format on the stack. 
  19.  
  20. James 
  21. ------------------cut here  estr ------------------------------------------ 
  22. %%HP: T(3)A(D)F(.);        
  23. \<< 
  24.   IF DUP 100 > 
  25.   THEN 1000000 / 
  26.   END .01 MOD DUP 
  27. 1000000 * DUP 19 
  28. MOD 19 * 24 + 30 
  29. MOD DUP 6 * ROT DUP 
  30. 4 MOD 2 * SWAP 7 
  31. MOD 4 * + + 5 + 7 
  32. MOD OVER + \-> d m 
  33.   \<< 
  34.     IF m 9 \<= 
  35.     THEN 22 m + .03 + 
  36.     ELSE m 9 - 'm' STO 
  37.       IF m 26 == 
  38.       THEN 19.04 
  39.       ELSE 
  40.         IF m 25 == d 28 == AND 
  41.         THEN 18.04 
  42.         ELSE m .04 + 
  43.         END 
  44.       END 
  45.     END + 
  46.     IF -42 FC?          @ changed these \    DATE RCLF ROT -42 
  47.     THEN D\<-\->M       @ lines to this: >   SF \->DATE STOF 
  48.     END                 @    -jkh-      /    DATE SWAP \->DATE 
  49.   \>> 
  50. \>> 
  51. ------------------cut here  estr ------------------------------------------ 
  52.        I have no professional connection with Hewlett-Packard's  
  53.      calculator operations other than as a user of their products. 
  54. ------------------------------------------------------------------------ 
  55.  Opinions expressed are my own, and are not intended to be an official 
  56.            statement by Hewlett-Packard Company/Limited 
  57. ------------------------------------------------------------------------ 
  58.   "To strive, to seek, to find, and not to yield."  Ulysses, Tennyson. 
  59. ------------------------------------------------------------------------ 
  60. James Gentles     Hewlett Packard,  Amateur: GM4WZP 
  61. Queensferry Telecoms Division QTD,    Email: jdg@hpsqf.sqf.hp.com  
  62. Station Road,   South Queensferry,   HPDESK: James Gentles / HP1400  
  63. West Lothian, Scotland,  EH30 9XR.    Phone: +44 31 331 7663, FAX: ~7488 
  64. ------------------------------------------------------------------------ 
  65.